home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 51 / Amiga Format CD51 (2000-03-10)(Future Publishing)(GB)[!][issue 2000-04].iso / -serious- / programming / e / powerd / source / examples / asltest.d < prev    next >
Text File  |  2000-01-27  |  455b  |  23 lines
  1. // simple asl.library example
  2.  
  3. PROC main()
  4.     DEF    req:PTR TO FileRequester,name[256]:CHAR
  5.     IF ASLBase:=OpenLibrary('asl.library',37)
  6.         IF req:=AllocFileRequest()
  7.             IF RequestFile(req)
  8.                 StrCopy(name,req.Drawer)
  9.                 AddPart(name,req.File,256)
  10.                 PrintF('You entered: \s\n',name)
  11.                 FreeFileRequest(req)
  12.             ENDIF
  13.         ENDIF
  14.         CloseLibrary(ASLBase)
  15.     ENDIF
  16. ENDPROC
  17.  
  18. MODULE    'startup/startup_dos'    // no more needed
  19.  
  20. MODULE    'libraries/asl',
  21.             'asl'
  22. DEF    ASLBase
  23.